home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43a.d64 / listing 5 basic (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  128b  |  5 lines
  1. 0 REM **** STARTZEILE ****
  2. 1000 INPUT A$:IF A$=""THEN END
  3. 1010 FOR AA=0 TO LEN(A$)-1:POKE 513+AA,ASC(MID$(A$,AA+1,1)):NEXT:POKE 513+AA,0
  4. 1020 POKE 11,AA:SYS 830
  5.